home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_105780.txt < prev    next >
Text File  |  1990-08-14  |  7KB  |  307 lines
  1. -- card: 105780 from stack: in
  2. -- bmap block id: 106488
  3. -- flags: 4000
  4. -- background id: 14423
  5. -- name: Consolidation…
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   put empty into card field 1
  9.   set hilite of card button 6 to false
  10.   set hilite of card button 7 to false
  11.   set hilite of card button 8 to true
  12.   repeat with index = 9 to 13
  13.     set hilite of card button index to false
  14.   end repeat
  15.   set hilite of card button "Percentages" to true
  16.   set hilite of card button "Letter Grades" to false
  17. end closeCard
  18.  
  19. on groupOne shiftKey
  20.   if (the shiftKey is down) or (shiftKey is down) then
  21.     set hilite of target to not hilite of target
  22.   else
  23.     if not hilite of target then
  24.       set hilite of card button 6 to false
  25.       set hilite of card button 7 to false
  26.       set hilite of target to true
  27.     end if
  28.   end if
  29. end groupOne
  30.  
  31. on groupTwo
  32.   repeat with index = 8 to 13
  33.     set hilite of card button index to false
  34.   end repeat
  35.   set hilite of target to true
  36. end groupTwo
  37.  
  38. on tabKey
  39.   select text of card field 1
  40. end tabKey
  41.  
  42.  
  43. -- part 1 (button)
  44. -- low flags: 00
  45. -- high flags: 0000
  46. -- rect: left=0 top=0 right=342 bottom=512
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: 
  55.  
  56.  
  57. -- part 2 (button)
  58. -- low flags: 00
  59. -- high flags: 2000
  60. -- rect: left=305 top=253 right=271 bottom=387
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Consolidate
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   lock screen
  72.   set cursor to watch
  73.   repeat with index = 8 to 13
  74.     if hilite of card button id index then exit repeat
  75.   end repeat
  76.   if hilite of card button id index then
  77.     put short name of card button index into binName
  78.     put card field 1 into taskName
  79.     go to card binName of this background
  80.     if the result is empty then
  81.       doMenu "New Task"
  82.       put taskName into card field 1
  83.       pop card
  84.       repeat with index = 5 to 8
  85.         if background field id index = binName then
  86.           add 1 to background field id (index + 4)
  87.           add 1 to background field "Tasks"
  88.           exit repeat
  89.         end if
  90.       end repeat
  91.     else pop card
  92.   end if
  93.   unlock screen
  94.   set cursor to hand
  95. end mouseUp
  96.  
  97.  
  98.  
  99. -- part 3 (button)
  100. -- low flags: 00
  101. -- high flags: 2000
  102. -- rect: left=305 top=281 right=299 bottom=387
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: Cancel
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   lock screen
  114.   pop card
  115.   unlock screen
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part 4 (button)
  121. -- low flags: 00
  122. -- high flags: C006
  123. -- rect: left=71 top=268 right=284 bottom=184
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Percentages
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   set hilite of card button "Letter grades" to false
  135.   set hilite of me to true
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 5 (button)
  141. -- low flags: 00
  142. -- high flags: 8006
  143. -- rect: left=71 top=284 right=300 bottom=184
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: Letter grades
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   set hilite of card button "Percentages" to false
  155.   set hilite of me to true
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 6 (button)
  161. -- low flags: 00
  162. -- high flags: 0000
  163. -- rect: left=73 top=161 right=177 bottom=232
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: 
  172. ----- HyperTalk script -----
  173. on mouseUp shiftKey
  174.   groupOne shiftKey
  175. end mouseUp
  176.  
  177.  
  178. -- part 7 (button)
  179. -- low flags: 00
  180. -- high flags: 0000
  181. -- rect: left=73 top=193 right=209 bottom=232
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 1
  185. -- font id: 0
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: 
  190. ----- HyperTalk script -----
  191. on mouseUp shiftKey
  192.   groupOne shiftKey
  193. end mouseUp
  194.  
  195.  
  196. -- part 8 (button)
  197. -- low flags: 00
  198. -- high flags: 4000
  199. -- rect: left=265 top=145 right=161 bottom=424
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Assignments
  208. ----- HyperTalk script -----
  209. on mouseUp
  210.   groupTwo
  211. end mouseUp
  212.  
  213.  
  214.  
  215. -- part 9 (button)
  216. -- low flags: 00
  217. -- high flags: 0000
  218. -- rect: left=265 top=161 right=177 bottom=424
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 0
  223. -- text size: 12
  224. -- style flags: 0
  225. -- line height: 16
  226. -- part name: Exams
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   groupTwo
  230. end mouseUp
  231.  
  232.  
  233.  
  234. -- part 10 (button)
  235. -- low flags: 00
  236. -- high flags: 0000
  237. -- rect: left=265 top=177 right=193 bottom=424
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: Term 1 Mark
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   groupTwo
  249. end mouseUp
  250.  
  251.  
  252.  
  253. -- part 11 (button)
  254. -- low flags: 00
  255. -- high flags: 0000
  256. -- rect: left=265 top=193 right=209 bottom=424
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: 
  265.  
  266.  
  267. -- part 12 (button)
  268. -- low flags: 00
  269. -- high flags: 0000
  270. -- rect: left=265 top=209 right=225 bottom=424
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 0 / 0
  273. -- text alignment: 1
  274. -- font id: 0
  275. -- text size: 12
  276. -- style flags: 0
  277. -- line height: 16
  278. -- part name: 
  279.  
  280.  
  281. -- part 13 (button)
  282. -- low flags: 00
  283. -- high flags: 0000
  284. -- rect: left=265 top=225 right=241 bottom=424
  285. -- title width / last selected line: 0
  286. -- icon id / first selected line: 0 / 0
  287. -- text alignment: 1
  288. -- font id: 0
  289. -- text size: 12
  290. -- style flags: 0
  291. -- line height: 16
  292. -- part name: 
  293.  
  294.  
  295. -- part 14 (field)
  296. -- low flags: 00
  297. -- high flags: 0000
  298. -- rect: left=74 top=83 right=101 bottom=438
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 0
  302. -- font id: 0
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: 
  307.